home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 108 / 108.d81 / numeric pad2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  38 lines
  1. 5 dv=peek(186):ifdv<8thendv=8
  2. 10 sys57812"rom/ram",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  3. 20 sys49152
  4. 30 fora=828to982:readx:pokea,x:next
  5. 40 poke1,53:l=58823:pokel,76:pokel+1,73:pokel+2,3
  6. 50 printchr$(9)chr$(142)"numeric pad installed"
  7. 55 print"ctrl-a[146] to activate"
  8. 60 print"ctrl-c[146] to deactivate"
  9. 65 print"ctrl-r[146] to restore rom"
  10. 70 new
  11. 828 data 169,55,133,1,96,169
  12. 834 data 0,141,145,3,76,142
  13. 840 data 3,201,1,240,121,201
  14. 846 data 3,240,240,201,18,240
  15. 852 data 231,44,145,3,240,52
  16. 858 data 201,85,240,64,201,73
  17. 864 data 240,64,201,79,240,64
  18. 870 data 201,74,240,40,201,75
  19. 876 data 240,40,201,76,240,40
  20. 882 data 201,32,240,52,201,58
  21. 888 data 240,52,201,59,240,52
  22. 894 data 201,61,240,52,201,80
  23. 900 data 240,52,201,64,240,52
  24. 906 data 201,42,240,52,88,24
  25. 912 data 96,0,169,49,208,248
  26. 918 data 169,50,208,244,169,51
  27. 924 data 208,240,169,52,208,236
  28. 930 data 169,53,208,232,169,54
  29. 936 data 208,228,169,48,208,224
  30. 942 data 169,65,208,220,169,66
  31. 948 data 208,216,169,67,208,212
  32. 954 data 169,68,208,208,169,69
  33. 960 data 208,204,169,70,208,200
  34. 966 data 169,255,77,145,3,141
  35. 972 data 145,3,88,165,198,240
  36. 978 data 252,120,76,180,229
  37. 10000 open15,8,15,"s0:numeric pad2":close15:save"numeric pad2",8:end
  38.